create legend in ggplot2 graphic in r